perm filename RECAUX.HDR[1,3]1 blob
sn#376312 filedate 1978-08-29 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00006 ENDMK
Cā;
DEFINE RCLASS "<>" =<RECORD_CLASS>;
DEFINE RPTR "<>" = <RECORD_POINTER>;
DEFINE RANY "<>" = <RECORD_POINTER(ANY_CLASS)>;
DEFINE RNULL "<>" = <NULL_RECORD>;
REQUIRE "SYS:RECORD.DEF" SOURCE_FILE;
EXTERNAL INTEGER PROCEDURE RECLEN(RPTR(ANY_CLASS) R);
EXTERNAL INTEGER PROCEDURE RECTYPE(RPTR(ANY_CLASS) R);
EXTERNAL RPTR($CLASS) SIMPLE PROCEDURE $RECTYPE(RPTR(ANY_CLASS) R);
EXTERNAL INTEGER PROCEDURE FLDTYPE(RPTR(ANY_CLASS) R;INTEGER IX);
EXTERNAL STRING SIMPLE PROCEDURE CVRCS(RPTR($CLASS) RC);
EXTERNAL STRING SIMPLE PROCEDURE CVRTS(INTEGER RT);
EXTERNAL INTEGER PROCEDURE FLDREF(RPTR(ANY_CLASS) R;STRING ID);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE BLDNRC(INTEGER RT);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE CHKREC(RPTR(ANY_CLASS)R;INTEGER T);
EXTERNAL RPTR($CLASS) PROCEDURE CLSFND(STRING ID);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE CPYREC(RPTR(ANY_CLASS) R1,R2(NULL_RECORD));
EXTERNAL RECORD_CLASS CELL(RECORD_POINTER(ANY_CLASS) CAR,CDR);
EXTERNAL RECORD_CLASS RLIST(INTEGER LEN;RPTR(CELL) FIRST,LAST);
EXTERNAL RPTR(CELL) PROCEDURE CONS(RPTR(ANY_CLASS) A,D);
EXTERNAL RPTR(CELL) PROCEDURE APPEND(RPTR(CELL) L1, L2);
EXTERNAL RPTR(CELL) PROCEDURE LIST2(RPTR(ANY_CLASS) C1,C2);
EXTERNAL RPTR(ANY_CLASS) RECURSIVE PROCEDURE SECOPY(RPTR(ANY_CLASS) C);
EXTERNAL BOOLEAN PROCEDURE IN_CL(RPTR(ANY_CLASS) C;RPTR(CELL) L);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE LLOP(REFERENCE RPTR(CELL) C);
EXTERNAL RPTR(CELL) PROCEDURE CL_LEN(RPTR(CELL) C);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE CONSON(RPTR(ANY_CLASS) X;REFERENCE RPTR(CELL) C);
EXTERNAL PROCEDURE RLADD(RPTR(RLIST) RL;RPTR(ANY_CLASS) REC;INTEGER N);
EXTERNAL INTEGER PROCEDURE RLREM(RPTR(RLIST) RL;RPTR(ANY_CLASS) REC;
INTEGER HOWMANY(1));
EXTERNAL RPTR(ANY_CLASS) PROCEDURE RLNREM(RPTR(RLIST) RL;INTEGER N);
EXTERNAL INTEGER PROCEDURE RLINX(RPTR(RLIST) RL;RPTR(ANY_CLASS) REC);
EXTERNAL RPTR(ANY_CLASS) PROCEDURE RLNTH(RPTR(RLIST) RL;INTEGER N);
EXTERNAL RPTR(RLIST) PROCEDURE RLCOPY(RPTR(RLIST) RL,RL2(NULL_RECORD));
EXTERNAL MATCHING RECURSIVE PROCEDURE
MAPRLIST(RPTR(RLIST) RL;REFERENCE RPTR(ANY_CLASS) R);
REQUIRE "RECAUX.REL[SUB,SYS]" LOAD_MODULE;